home *** CD-ROM | disk | FTP | other *** search
/ Chip: 2001 Haziran / CHIP Haziran2001.iso / prog / haziran / 20 / setup.exe / {app} / plugins / XQ Desktop System Settings.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-03-28  |  1.7 KB  |  55 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH"="Appearance\Desktop\Options"
  5. "NAME"="System Desktop Options"
  6. "VERSION"="1.53"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Show "Network Neightborhood" on desktop"
  9. "TEXT 2"="Disable entire desktop (!)"
  10. "WARNING"="1"
  11. "DESCRIPTION 1"="!WARNING! Hiding the Network Neightborhood can lead to serious problems (for example with UNC names). Deactivate this option ONLY if you are sure that you don't need any network functionality". !WARNING!"
  12. "DESCRIPTION 2"="If "Disable entire desktop" option is set, the entire desktop is disabled. This means that NO ICONS WHATSOEVER are displayed on the desktop."
  13. "DESCRIPTION 3"="Note: In Windows 2000 and Windows Me, the 'Network Neighborhood' is called 'My Network Places'."
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18.  
  19. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
  20. sPath="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDesktop"
  21.  
  22. Sub Plugin_Initialize 
  23.  i=RegReadValue(sp&"NoNetHood")
  24.  if IsEmpty(i) or i="00000000" then SetUIElement 1,true
  25.  
  26.  i=RegReadValue(sPath)
  27.  if IsEmpty(i)=false then
  28.     If i=1 then Call SetUIElement(2,true) 
  29.  end if  
  30. End Sub
  31.  
  32. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  33.  b=GetUIElement(1)
  34.  if b=true then
  35.     Call RegWriteValue(sp&"NoNetHood","00000000",3)
  36.  else
  37.     Call RegWriteValue(sp&"NoNetHood","01000000",3)
  38.  end if
  39.  
  40.  b=GetUIElement(2)
  41.  if b=true then
  42.     Call RegWriteValue(sPath,1,2)
  43.  else
  44.     s=RegReadValue(sPath)
  45.     if IsEmpty(s)=false then
  46.        Call RegDeleteValue(sPath)
  47.     end if
  48.  end if
  49.  
  50.  Call Restart()
  51. End Sub
  52.  
  53. Sub Plugin_Terminate 
  54. End Sub
  55.